home *** CD-ROM | disk | FTP | other *** search
/ Penthouse Guide to Cybersex / Penthouse Guide to Cybersex.iso / mac / Vivid / PC / PZ.DXR / 00129_Field_129.txt < prev    next >
Text File  |  1995-04-11  |  2KB  |  70 lines
  1. on checksounds babe
  2.   -- global NUMCURS, NUMZONES
  3.   
  4.   set castbase = d22 + (babe-1)*32
  5.   set tot = 0
  6.   repeat with zo = 0 to 4 -- NUMZONES-1
  7.     set zoname = line (zo+1) of the text of cast a54
  8.     put "  ZONE: " && zoname && zo
  9.     set tot1 = 0
  10.     repeat with i = 1 to 5 -- NUMCURS-1
  11.       set curnam = line (i) of the text of cast a53
  12.       set str = line (i+1) of the text of cast (castbase + zo)
  13.       put "    CURS: " && i && curnam && str
  14.       set nwords = the number of words in str
  15.       set v = integer(word 1 of str)
  16.       set tot1 = tot1 + v
  17.       repeat with wd = 2 to nwords        
  18.         set  cnam = word wd of str
  19.         put "   " & cnam
  20.         puppetsound cnam        
  21.       end repeat
  22.     end repeat
  23.     put "  zone total: " && tot1
  24.     set tot = tot + tot1
  25.   end repeat
  26.   put "babe tot: " && tot
  27. end checksounds
  28.  
  29. on checkzones babe
  30.   -- global NUMCURS, NUMZONES
  31.   
  32.   set castbase = d22 + (babe-1)*32
  33.   set tot = 0
  34.   repeat with zo = 0 to 4 -- NUMZONES-1
  35.     set zoname = line (zo+1) of the text of cast a54
  36.     set tot1 = 0
  37.     repeat with i = 1 to 5 -- NUMCURS-1
  38.       set curnam = line (i) of the text of cast a53
  39.       set str = line (i+1) of the text of cast (castbase + zo)
  40.       set v = integer(word 1 of str)
  41.       set tot1 = tot1 + v
  42.     end repeat
  43.     put "  ZONE: " && zoname && tot1
  44.     set tot = tot + tot1
  45.   end repeat
  46.   put "babe tot: " && tot
  47. end checkzones
  48.  
  49. on checkgoodies babe
  50.   -- global NUMCURS, NUMZONES
  51.   
  52.   set castbase = d22 + (babe-1)*32
  53.   set tot = 0
  54.   repeat with i = 1 to 5 -- NUMCURS-1
  55.     set curnam = line (i) of the text of cast a53
  56.     set tot1 = 0
  57.     repeat with zo = 0 to 4 -- NUMZONES-1
  58.       set zoname = line (zo+1) of the text of cast a54
  59.       -- put "  ZONE: " && zoname && zo
  60.       set str = line (i+1) of the text of cast (castbase + zo)
  61.       set v = integer(word 1 of str)
  62.       set tot1 = tot1 + v
  63.     end repeat
  64.     put "CURS: " && curnam && tot1
  65.     set tot = tot + tot1
  66.   end repeat
  67.   put "babe tot: " && tot
  68. end checksounds
  69.  
  70.